home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / wasm223.zip / STAMP.ASM < prev    next >
Assembly Source File  |  1993-05-04  |  1KB  |  32 lines
  1. ;******************************************;
  2. ; WASM Date / Time Stamp                   ;
  3. ; By Eric Tauck                            ;
  4. ;                                          ;
  5. ; Defines:                                 ;
  6. ;                                          ;
  7. ;   TimSta  declare date/time stamp string ;
  8. ;******************************************;
  9.  
  10. ;========================================
  11. ; Declare time/date stamp string.  The
  12. ; date and time are merged into a single
  13. ; long ASCII string with the most
  14. ; significant digits first.
  15.  
  16. TimSta  MACRO
  17.         DB      ($DATE2 / 1000)         \ 10 + '0'
  18.         DB      ($DATE2 / 100)          \ 10 + '0'
  19.         DB      ($DATE2 / 10)           \ 10 + '0'
  20.         DB      ($DATE2 / 1)            \ 10 + '0'
  21.         DB      ($DATE1 / 0FFH / 10)    \ 10 + '0'
  22.         DB      ($DATE1 / 0FFH / 1)     \ 10 + '0'
  23.         DB      ($DATE1 AND 0FFH / 10)  \ 10 + '0'
  24.         DB      ($DATE1 AND 0FFH / 1)   \ 10 + '0'
  25.         DB      ($TIME2 / 0FFH / 10)    \ 10 + '0'
  26.         DB      ($TIME2 / 0FFH / 1)     \ 10 + '0'
  27.         DB      ($TIME2 AND 0FFH / 10)  \ 10 + '0'
  28.         DB      ($TIME2 AND 0FFH / 1)   \ 10 + '0'
  29.         DB      ($TIME1 / 0FFH / 10)    \ 10 + '0'
  30.         DB      ($TIME1 / 0FFH / 1)     \ 10 + '0'
  31.         ENDM
  32.